home *** CD-ROM | disk | FTP | other *** search
/ The PC-SIG Library 10 / The PC-Sig Library - Shareware for the IBM PC and Compatibles (PC-SIG)(Tenth Edition Disks 1-2804)(1991).iso / PC_SIGCD / 04 / 4 / DISK0440.ZIP / FILEFIX.ASC < prev    next >
Text File  |  1985-05-27  |  2KB  |  46 lines
  1. 100 'fixfile version 1.0              2-17-1985
  2. 110 'by Bill Buoy for CE Vetco Services
  3. 120 'modifies a communications data file to be a source file for
  4. 130 'Wordplus PCjr. It keys on C/R characters and pads the remainder
  5. 140 'of the line with nulls.
  6. 150 'Wordplus .TXT files have the form :
  7. 160 'lines of text CHR$(17)(null bytes to pad remainder of 80 columns.
  8. 170 'open format line markers are CHR$(16)
  9. 180 'Release to copy and use are hereby granted provided the credits are
  10. 190 'retained and the program is not sold, either by itself or as part
  11. 200 'of a package.  All commercial rights are retained by the author.
  12. 210 WIDTH 80:CLEAR:PAD$=STRING$(80,0):COLOR 14
  13. 220 CLS:FILES:KEY OFF
  14. 230 INPUT "Enter input filename.ext"; IFILE$
  15. 240 INPUT "Enter output filename.ext"; OFILE$
  16. 250 IF IFILE$<>OFILE$ THEN 290
  17. 260 COLOR 4:BEEP:PRINT"Request denied.  You will destroy the original."
  18. 270 COLOR 12:PRINT"Input and output filenames must be different."
  19. 280 COLOR 14:PRINT" Please reselect.":GOTO 230
  20. 290 IF LEN (OFILE$)<12.1 THEN 350
  21. 300 BEEP:PRINT"filename too long ... suggest ";:A=LEN(OFILE$)
  22. 310 A$=LEFT$(OFILE$,A-4)
  23. 320 OFILE$=RIGHT$(A$,8)+".TXT":COLOR 15:PRINT OFILE$:COLOR 14
  24. 330 INPUT "is this ok (y/n) ";A$: IF A$="Y" OR A$="y" THEN 350
  25. 340 GOTO 240
  26. 350 COLOR 2:PRINT "opening disc files ... please stand by."
  27. 360 OPEN IFILE$ FOR INPUT AS 1
  28. 370 OPEN OFILE$ FOR OUTPUT AS 2
  29. 380 CC%=0:O$=""
  30. 390 WHILE NOT EOF(1)
  31. 400  V=ASC(INPUT$(1,#1)):CC%=CC%+1
  32. 410  V=V AND 127
  33. 420  IF V=64 THEN V=16
  34. 430  IF V<>13 THEN 460
  35. 440  O$=CHR$(17)+LEFT$(PAD$,(80-CC%))
  36. 450  CC%=81:GOTO 470
  37. 460  O$=CHR$(V)
  38. 470  PRINT# 2,O$;:O$=""
  39. 480  IF CC%>79 THEN CC%=0
  40. 490 WEND
  41. 500 PRINT# 2,"raw copy - not edited"+CHR$(17)+LEFT$(PAD$,59);
  42. 510 PRINT# 2,DATE$+CHR$(17)+LEFT$(PAD$,69);
  43. 520 PRINT# 2,TIME$+CHR$(17)
  44. 530 PRINT"     Job Complete - press fn 2 to run another.":KEY ON
  45. 540 COLOR 14:CLOSE:BEEP:END
  46.